home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 3.st / CINIT.ARC / ASMBLY.S < prev    next >
Encoding:
Text File  |  1989-07-12  |  1.9 KB  |  95 lines
  1.  
  2. ;    A very simple example assembly application which runs as
  3. ;    either a program or a desk accessory. Does no window or
  4. ;    menubar handling. I figure anyone who does that in assembly
  5. ;    is a little crazy.
  6. ;    (With all due respect to the many excellent crazy programmers
  7. ;    out there...)
  8.  
  9. ;    Assemble with Hisoft Devpac or anything with similar macros
  10. ;    "Real men don't use Macros..."
  11. ;    "It's just an example (whimper whimper)"
  12.  
  13. ;       by Samuel Streeper
  14. ;       Copyright 1989 Antic Publishing
  15.  
  16.     include    gemmacro.s
  17.  
  18. start
  19.     lea        start,a5
  20.     suba    #$100,a5        a5 -> base page
  21.  
  22.     lea        stack,sp
  23.  
  24.     moveq    #0,D5
  25.     tst.l    36(A5)            Parent basepage pointer clear if ACC
  26.     sne        D5                D5 set if application
  27.     move    D5,app
  28.     beq     cont            is an accessory
  29.  
  30.     move.l    $c(a5),d0        text len
  31.     add.l    $14(a5),d0        data len
  32.     add.l    $1c(a5),d0        BSS len
  33.     add.l    #$100,d0        basepage
  34.  
  35.     move.l    d0,-(sp)
  36.     move.l    a5,-(sp)
  37.     clr.w    -(sp)
  38.     move.w    #$4a,-(sp)
  39.     trap    #1                shrink memory
  40.     lea    12(sp),sp
  41.  
  42. cont
  43.     appl_init
  44.     move.w    d0,ap_id        store the application id
  45.  
  46.     tst        app
  47.     beq        c1
  48.  
  49.                             ;I am a program
  50.     graf_mouse    #0            set the mouse to an arrow
  51.     form_alert    #1,#prgalert
  52.     clr        -(sp)
  53.     trap    #1
  54.  
  55. c1:                            ;I am a desk accessory
  56.     menu_register    ap_id,#menu
  57.  
  58.                             ;the main loop of the application
  59.                             ;only interested in message events
  60. waitforevent
  61.     evnt_mesag    #messagebuf
  62.     move.l    #messagebuf,a0
  63.     move.w    (a0),d0            ;message type
  64.     cmp.w    #40,d0
  65.     beq    open_acc
  66.     bra.s    waitforevent
  67.  
  68. open_acc
  69.     form_alert    #1,#accalert
  70.     bra    waitforevent
  71.  
  72.     SECTION    DATA
  73.  
  74. ;all C strings must end in a null
  75. menu    dc.b    '  prgacc demo',0
  76.  
  77. accalert dc.b    '[1][Running as a Desk Accessory|Yow!][ OK ]',0
  78.  
  79. prgalert dc.b    '[1][Running as a Program|Yow!][ OK ]',0
  80.  
  81. ;global constants
  82.     SECTION    BSS
  83.  
  84. app            ds.w 1
  85. ap_id        ds.w 1
  86. messagebuf    ds.b 16
  87.  
  88.         ds.l    200
  89. stack    ds.w    1
  90.  
  91.  
  92.     IFEQ    __LK
  93.     include    aeslib.s
  94.     ENDC
  95.